GETSUBSTR() फ़ंक्शन का उद्देश्य दिए गए विभाजक द्वारा पाठ के भाग का चयन करना है।
GETSUBSTR फ़ंक्शन कोड निर्दिष्ट विभाजक द्वारा पाठ को एक सरणी में विभाजित करता है और निर्दिष्ट क्रम संख्या के अनुसार दिए गए सरणी के तत्व को लौटाता है।
नीचे एक कस्टम फ़ंक्शन GETSUBSTR बनाने के लिए मैक्रो कोड है जो टेक्स्ट को भागों में विभाजित कर सकता है और इसके किसी भी तत्व को LibreOffice प्रोग्राम calc में पुनः प्राप्त कर सकता है।
एक नया फ़ंक्शन जोड़ने के लिए, मेनू खोलें Tools - Macros - Edit Macros..., Module1 चुनें और निम्नलिखित टेक्स्ट को मॉड्यूल में कॉपी करें:
Function GETSUBSTR(Txt, Delimiter, n) As String
Dim txtArray As Variant
If Txt = "" Then Exit Function
txtArray = Split(Txt, Delimiter)
maxExt = UBound(txtArray)
If n >= 0 Then
normExt = n - 1
Else
normExt = maxExt + n + 1
EndIf
extToFind = Max(Min(maxExt, normExt), 0)
GETSUBSTR = txtArray(extToFind)
End Function
फिर, Macro Editor को बंद करें, LibreOffice Calc पर वापस लौटें और किसी भी सेल में नए फ़ंक्शन का उपयोग करें।
आप भी फीचर का इस्तेमाल कर सकते हैं GETSUBSTR() निःशुल्क एक्सटेंशन इंस्टॉल करके YouLibrecalc.oxt या इसका पूर्ण विशेषताओं वाला संस्करण YLC_Utilities.oxt .
उसके बाद, यह फ़ंक्शन उन सभी फ़ाइलों में उपलब्ध होगा जो LibreOffice Calc में खोली जाएंगी।